home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / unix / amiwin22.lha / Install_AmiWinUpd < prev    next >
Text File  |  1995-08-06  |  9KB  |  496 lines
  1. (procedure check-amiwin-version
  2.  (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
  3.  (if (not(= amiwin-version 131072))
  4.   (abort "You do not have AmiWin 2.0d installed.\n");
  5.  )
  6. )
  7.  
  8. (procedure select-destination-directory
  9.  (set @default-dest
  10.   (askdir
  11.    (prompt "Select the directory where you have "
  12.     "installed AmiWin 2.0demo. The default is "
  13.     "probably correct.")
  14.    (help "Please specify the directory where you have "
  15.     "installed AmiWin 2.0demo. The default is "
  16.     "the X11: directory, i.e. the likely place of "
  17.     "your AmiWin installation.")
  18.    (default "X11:")
  19.   )
  20.  )
  21. )  
  22.  
  23. ;;;; Start
  24.  
  25. (set app-name "AmiWin 2.11demo")
  26.  
  27. (complete 0)
  28.  
  29. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  30.  (expandpath @icon))
  31. )
  32.  
  33. (select-destination-directory)
  34.  
  35. (check-amiwin-version)
  36.  
  37. (copyfiles
  38.  (source (tackon source-dir "x11/lib/x11/locale/locale.alias"))
  39.  (dest (tackon @default-dest "lib/x11/locale"))
  40. )
  41.  
  42. (complete 3)
  43.  
  44. (copyfiles
  45.  (source (tackon source-dir "x11/lib/x11/locale/locale.dir"))
  46.  (dest (tackon @default-dest "lib/x11/locale"))
  47. )
  48.  
  49. (complete 7)
  50.  
  51. (copyfiles
  52.  (source (tackon source-dir "x11/lib/x11/locale/iso8859-1/Compose"))
  53.  (dest (tackon @default-dest "lib/x11/locale/iso8859-1"))
  54. )
  55.  
  56. (complete 11)
  57.  
  58. (copyfiles
  59.  (source (tackon source-dir "x11/libs/xlib.pch"))
  60.  (dest "T:")
  61. )
  62.  
  63. (copyfiles
  64.  (source (tackon @default-dest "libs/xlib.library"))
  65.  (dest "T:")
  66.  (newname "xlib.old")
  67. )
  68.  
  69. (working)
  70. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlib.library -pT:xlib.pch T:xlib.old"))
  71.  
  72. (copyfiles
  73.  (source "T:xlib.library")
  74.  (dest (tackon @default-dest "libs"))
  75. )
  76.  
  77. (delete "T:xlib.library")
  78. (delete "T:xlib.old")
  79. (delete "T:xlib.pch")
  80.  
  81. (complete 16)
  82.  
  83. (copyfiles
  84.  (source (tackon source-dir "x11/libs/xt.pch"))
  85.  (dest "T:")
  86. )
  87.  
  88. (copyfiles
  89.  (source (tackon @default-dest "libs/xt.library"))
  90.  (dest "T:")
  91.  (newname "xt.old")
  92. )
  93.  
  94. (working)
  95. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xt.library -pT:xt.pch T:xt.old"))
  96.  
  97. (copyfiles
  98.  (source "T:xt.library")
  99.  (dest (tackon @default-dest "libs"))
  100. )
  101.  
  102. (delete "T:xt.library")
  103. (delete "T:xt.old")
  104. (delete "T:xt.pch")
  105.  
  106. (complete 21)
  107.  
  108. (copyfiles
  109.  (source (tackon source-dir "x11/libs/xmu1.pch"))
  110.  (dest "T:")
  111. )
  112.  
  113. (copyfiles
  114.  (source (tackon @default-dest "libs/xmu1.library"))
  115.  (dest "T:")
  116.  (newname "xmu1.old")
  117. )
  118.  
  119. (working)
  120. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu1.library -pT:xmu1.pch T:xmu1.old"))
  121.  
  122. (copyfiles
  123.  (source "T:xmu1.library")
  124.  (dest (tackon @default-dest "libs"))
  125. )
  126.  
  127. (delete "T:xmu1.library")
  128. (delete "T:xmu1.old")
  129. (delete "T:xmu1.pch")
  130.  
  131. (complete 26)
  132.  
  133. (copyfiles
  134.  (source (tackon source-dir "x11/libs/xmu2.pch"))
  135.  (dest "T:")
  136. )
  137.  
  138. (copyfiles
  139.  (source (tackon @default-dest "libs/xmu2.library"))
  140.  (dest "T:")
  141.  (newname "xmu2.old")
  142. )
  143.  
  144. (working)
  145. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu2.library -pT:xmu2.pch T:xmu2.old"))
  146.  
  147. (copyfiles
  148.  (source "T:xmu2.library")
  149.  (dest (tackon @default-dest "libs"))
  150. )
  151.  
  152. (delete "T:xmu2.library")
  153. (delete "T:xmu2.old")
  154. (delete "T:xmu2.pch")
  155.  
  156. (complete 31)
  157.  
  158. (copyfiles
  159.  (source (tackon source-dir "x11/libs/xaw.pch"))
  160.  (dest "T:")
  161. )
  162.  
  163. (copyfiles
  164.  (source (tackon @default-dest "libs/xaw.library"))
  165.  (dest "T:")
  166.  (newname "xaw.old")
  167. )
  168.  
  169. (working)
  170. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xaw.library -pT:xaw.pch T:xaw.old"))
  171.  
  172. (copyfiles
  173.  (source "T:xaw.library")
  174.  (dest (tackon @default-dest "libs"))
  175. )
  176.  
  177. (delete "T:xaw.library")
  178. (delete "T:xaw.old")
  179. (delete "T:xaw.pch")
  180.  
  181. (complete 36)
  182.  
  183. (copyfiles
  184.  (source (tackon source-dir "x11/libs/xfont.pch"))
  185.  (dest "T:")
  186. )
  187.  
  188. (copyfiles
  189.  (source (tackon @default-dest "libs/xfont.library"))
  190.  (dest "T:")
  191.  (newname "xfont.old")
  192. )
  193.  
  194. (working)
  195. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xfont.library -pT:xfont.pch T:xfont.old"))
  196.  
  197. (copyfiles
  198.  (source "T:xfont.library")
  199.  (dest (tackon @default-dest "libs"))
  200. )
  201.  
  202. (delete "T:xfont.library")
  203. (delete "T:xfont.old")
  204. (delete "T:xfont.pch")
  205.  
  206. (complete 41)
  207.  
  208. (copyfiles
  209.  (source (tackon source-dir "x11/libs/xtrans.pch"))
  210.  (dest "T:")
  211. )
  212.  
  213. (copyfiles
  214.  (source (tackon @default-dest "libs/xtrans.library"))
  215.  (dest "T:")
  216.  (newname "xtrans.old")
  217. )
  218.  
  219. (working)
  220. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xtrans.library -pT:xtrans.pch T:xtrans.old"))
  221.  
  222. (copyfiles
  223.  (source "T:xtrans.library")
  224.  (dest (tackon @default-dest "libs"))
  225. )
  226.  
  227. (delete "T:xtrans.library")
  228. (delete "T:xtrans.old")
  229. (delete "T:xtrans.pch")
  230.  
  231. (complete 46)
  232.  
  233. (copyfiles
  234.  (source (tackon source-dir "x11/libs/xice.pch"))
  235.  (dest "T:")
  236. )
  237.  
  238. (copyfiles
  239.  (source (tackon @default-dest "libs/xice.library"))
  240.  (dest "T:")
  241.  (newname "xice.old")
  242. )
  243.  
  244. (working)
  245. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xice.library -pT:xice.pch T:xice.old"))
  246.  
  247. (copyfiles
  248.  (source "T:xice.library")
  249.  (dest (tackon @default-dest "libs"))
  250. )
  251.  
  252. (delete "T:xice.library")
  253. (delete "T:xice.old")
  254. (delete "T:xice.pch")
  255.  
  256. (complete 51)
  257.  
  258. (copyfiles
  259.  (source (tackon source-dir "x11/xsd/aga-8.pch"))
  260.  (dest "T:")
  261. )
  262.  
  263. (copyfiles
  264.  (source (tackon @default-dest "xsd/aga-8.xsd"))
  265.  (dest "T:")
  266.  (newname "aga-8.old")
  267. )
  268.  
  269. (working)
  270. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-8.xsd -pT:aga-8.pch T:aga-8.old"))
  271.  
  272. (copyfiles
  273.  (source "T:aga-8.xsd")
  274.  (dest (tackon @default-dest "xsd"))
  275. )
  276.  
  277. (delete "T:aga-8.xsd")
  278. (delete "T:aga-8.old")
  279. (delete "T:aga-8.pch")
  280.  
  281. (complete 56)
  282.  
  283. (copyfiles
  284.  (source (tackon source-dir "x11/xsd/rtg-1.pch"))
  285.  (dest "T:")
  286. )
  287.  
  288. (copyfiles
  289.  (source (tackon @default-dest "xsd/rtg-1.xsd"))
  290.  (dest "T:")
  291.  (newname "rtg-1.old")
  292. )
  293.  
  294. (working)
  295. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:rtg-1.xsd -pT:rtg-1.pch T:rtg-1.old"))
  296.  
  297. (copyfiles
  298.  (source "T:rtg-1.xsd")
  299.  (dest (tackon @default-dest "xsd"))
  300. )
  301.  
  302. (delete "T:rtg-1.xsd")
  303. (delete "T:rtg-1.old")
  304. (delete "T:rtg-1.pch")
  305.  
  306. (complete 61)
  307.  
  308. (copyfiles
  309.  (source (tackon source-dir "x11/xsd/cybergraphx-8.pch"))
  310.  (dest "T:")
  311. )
  312.  
  313. (copyfiles
  314.  (source (tackon @default-dest "xsd/cybergraphx-8.xsd"))
  315.  (dest "T:")
  316.  (newname "cybergraphx-8.old")
  317. )
  318.  
  319. (working)
  320. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:cybergraphx-8.xsd -pT:cybergraphx-8.pch T:cybergraphx-8.old"))
  321.  
  322. (copyfiles
  323.  (source "T:cybergraphx-8.xsd")
  324.  (dest (tackon @default-dest "xsd"))
  325. )
  326.  
  327. (delete "T:cybergraphx-8.xsd")
  328. (delete "T:cybergraphx-8.old")
  329. (delete "T:cybergraphx-8.pch")
  330.  
  331. (complete 66)
  332.  
  333. (copyfiles
  334.  (source (tackon source-dir "x11/xsd/picasso-l-8.pch"))
  335.  (dest "T:")
  336. )
  337.  
  338. (copyfiles
  339.  (source (tackon @default-dest "xsd/picasso-l-8.xsd"))
  340.  (dest "T:")
  341.  (newname "picasso-l-8.old")
  342. )
  343.  
  344. (working)
  345. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:picasso-l-8.xsd -pT:picasso-l-8.pch T:picasso-l-8.old"))
  346.  
  347. (copyfiles
  348.  (source "T:picasso-l-8.xsd")
  349.  (dest (tackon @default-dest "xsd"))
  350. )
  351.  
  352. (delete "T:picasso-l-8.xsd")
  353. (delete "T:picasso-l-8.old")
  354. (delete "T:picasso-l-8.pch")
  355.  
  356. (complete 71)
  357.  
  358. (copyfiles
  359.  (source (tackon source-dir "x11/bin/xhost.pch"))
  360.  (dest "T:")
  361. )
  362.  
  363. (copyfiles
  364.  (source (tackon @default-dest "bin/xhost"))
  365.  (dest "T:")
  366.  (newname "xhost.old")
  367. )
  368.  
  369. (working)
  370. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xhost -pT:xhost.pch T:xhost.old"))
  371.  
  372. (copyfiles
  373.  (source "T:xhost")
  374.  (dest (tackon @default-dest "bin"))
  375. )
  376.  
  377. (delete "T:xhost")
  378. (delete "T:xhost.old")
  379. (delete "T:xhost.pch")
  380.  
  381. (complete 76)
  382.  
  383. (copyfiles
  384.  (source (tackon source-dir "x11/bin/AmiWin.pch"))
  385.  (dest "T:")
  386. )
  387.  
  388. (copyfiles
  389.  (source (tackon @default-dest "bin/AmiWin"))
  390.  (dest "T:")
  391.  (newname "AmiWin.old")
  392. )
  393.  
  394. (working)
  395. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin -pT:AmiWin.pch T:AmiWin.old"))
  396.  
  397. (copyfiles
  398.  (source "T:AmiWin")
  399.  (dest (tackon @default-dest "bin"))
  400. )
  401.  
  402. (delete "T:AmiWin")
  403. (delete "T:AmiWin.old")
  404. (delete "T:AmiWin.pch")
  405.  
  406. (complete 81)
  407.  
  408. (copyfiles
  409.  (source (tackon source-dir "x11/bin/WaitForX.pch"))
  410.  (dest "T:")
  411. )
  412.  
  413. (copyfiles
  414.  (source (tackon @default-dest "bin/WaitForX"))
  415.  (dest "T:")
  416.  (newname "WaitForX.old")
  417. )
  418.  
  419. (working)
  420. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:WaitForX -pT:WaitForX.pch T:WaitForX.old"))
  421.  
  422. (copyfiles
  423.  (source "T:WaitForX")
  424.  (dest (tackon @default-dest "bin"))
  425. )
  426.  
  427. (delete "T:WaitForX")
  428. (delete "T:WaitForX.old")
  429. (delete "T:WaitForX.pch")
  430.  
  431. (complete 86)
  432.  
  433. (copyfiles
  434.  (source (tackon source-dir "x11/bin/xcalc.pch"))
  435.  (dest "T:")
  436. )
  437.  
  438. (copyfiles
  439.  (source (tackon @default-dest "bin/xcalc"))
  440.  (dest "T:")
  441.  (newname "xcalc.old")
  442. )
  443.  
  444. (working)
  445. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xcalc -pT:xcalc.pch T:xcalc.old"))
  446.  
  447. (copyfiles
  448.  (source "T:xcalc")
  449.  (dest (tackon @default-dest "bin"))
  450. )
  451.  
  452. (delete "T:xcalc")
  453. (delete "T:xcalc.old")
  454. (delete "T:xcalc.pch")
  455.  
  456. (complete 91)
  457.  
  458. (copyfiles
  459.  (source (tackon source-dir "x11/bin/startx"))
  460.  (dest (tackon @default-dest "bin"))
  461. )
  462.  
  463. (working)
  464. (run (cat "protect \"" (tackon @default-dest "bin/startx") "\" +s"))
  465.  
  466. (complete 95)
  467.  
  468.  
  469. (copyfiles
  470.  (source (tackon source-dir "AmiWin_guide.pch"))
  471.  (dest "T:")
  472. )
  473.  
  474. (copyfiles
  475.  (source (tackon @default-dest "help/AmiWin.guide"))
  476.  (dest "T:")
  477.  (newname "AmiWin_guide.old")
  478. )
  479.  
  480. (working)
  481. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin.guide -pT:AmiWin_guide.pch T:AmiWin_guide.old"))
  482.  
  483. (copyfiles
  484.  (source "T:AmiWin.guide")
  485.  (dest (tackon @default-dest "help"))
  486. )
  487.  
  488. (delete "T:AmiWin.guide")
  489. (delete "T:AmiWin_guide.old")
  490. (delete "T:AmiWin_guide.pch")
  491.  
  492. (complete 100)
  493.  
  494. (exit "Installation of the update from AmiWin 2.0demo to "
  495.  "AmiWin 2.11demo is finished.")
  496.